home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SATAN11.ZIP / HTML / RUNNING / SATAN_RU.PL
Encoding:
Text File  |  1995-04-04  |  1.9 KB  |  75 lines
  1. #
  2. # Display a FORM to select the primary target and to give the user a chance to
  3. # override some defaults.
  4. #
  5. ($_host) = split(/,/, $html_script_args);
  6.  
  7. #
  8. # First figure out what radio buttons etc. should be "on". Note: the
  9. # variables below are global. Perhaps we should hide in our own package
  10. # name space.
  11. #
  12. @check_subnets = ();    $check_subnets[$attack_proximate_subnets] = "checked";
  13. @check_level = ();    $check_level[$attack_level] = "checked";
  14.  
  15. #
  16. # In case the primary target has not yet been set.
  17. #
  18. $primary_target = $THIS_HOST unless $primary_target;
  19. $_host = $primary_target unless $_host;
  20.  
  21. print CLIENT <<EOF
  22. <HTML>
  23. <HEAD>
  24. <TITLE>SATAN target selection</TITLE>
  25. <LINK REV="made" HREF="mailto:satan\@fish.com">
  26. </HEAD>
  27. <BODY>
  28.  
  29. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> SATAN target selection</H1>
  30.  
  31. <hr>
  32.  
  33. <FORM METHOD=POST ACTION="satan_run_action.pl">
  34.  
  35. <h3> Primary target selection </h3>
  36.  
  37. Primary target host or network, e.g. <tt>$THIS_HOST</tt>:
  38. <INPUT SIZE="48" NAME="primary_target" Value="$_host">
  39.  
  40. <P>
  41.  
  42. <DL compact>
  43. <DT><DD><input type=radio name="attack_proximate_subnets" value="0" $check_subnets[0]>
  44.     Scan the target host only.
  45. <DT><DD><input type=radio name="attack_proximate_subnets" value="1" $check_subnets[1]>
  46.     Scan all hosts in the primary (i.e. the target's) subnet.
  47. </DL>
  48.  
  49. <HR>
  50.  
  51. <h3> Scanning level selection </h3>
  52.  
  53. Should SATAN do a light scan, a normal scan, or should it hit the
  54. (primary) target(s) at full blast?
  55.  
  56. <P>
  57.  
  58. <DL compact>
  59. <DT><DD><input type=radio name="attack_level" value="0" $check_level[0]>
  60.     Light
  61. <DT><DD><input type=radio name="attack_level" value="1" $check_level[1]>
  62.     Normal (may be detected even with minimal logging)
  63. <DT><DD><input type=radio name="attack_level" value="2" $check_level[2]> 
  64.     Heavy (error messages may appear on systems consoles)
  65. </DL>
  66.  
  67. <HR>
  68.  
  69. <INPUT TYPE="submit" VALUE=" Start the scan ">
  70.  
  71. </FORM>
  72. </BODY>
  73. </HTML>
  74. EOF
  75.